home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed20.d64 / tt28 (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  6KB  |  165 lines
  1. 10 CLR:POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23
  2. 15 PRINT"[147]                                        [146]";
  3. 20 PRINT"     [210][193][196]'[211] [212][207][213][195][200][160][212][217][208][201][206][199] - MADE EASY     [146]";
  4. 25 PRINT"                                        [146]":GOSUB710
  5. 30 PRINT"               [205]ODULE 28 [146]
  6. 35 [141]720
  7. 38 [151]53280,0:[151]53281,0:[151]646,7
  8. 40 [153]"LOAD                 (null)(null)28 WAIT
  9. 42 PRINT"[150]              [215][193][210][206][201][206][199]!![159]"
  10. 44 PRINT"   [201]F YOU MAKE 5 UNCORRECTED ERRORS        IN THIS MODULE, YOU ";
  11. 46 PRINT"MUST START          OVER AGAIN."
  12. 48 PRINT"[154]     [208]RESS  [211][208][193][195][197][160][194][193][210] [146] TO CONTINUE[159]"
  13. 50 GETR$:IFR$<>CHR$(32)THEN50
  14. 52 GOSUB600
  15. 56 POKE53280,3:POKE53281,15:POKE646,0
  16. 58 R=0:TI$="000000":LINE=0:P=0:Q=0:G=1:K=0
  17. 60 LINE=LINE+1:PRINT"[147] [212][212]28  [197]XERCISE:"TAB(2)LINE"OF 17"TAB(27)"[197]RRORS:"Q
  18. 62 FOR K=1 TO 17
  19. 64 READ E$(K)
  20. 66 PRINT" [212]YPE CORRECTLY, THEN PRESS [210][197][212][213][210][206][146]"
  21. 68 PRINT" ";E$(K)
  22. 70 PRINT"[144]"
  23. 72 READ F$(K)
  24. 74 POKE198,1:POKE631,34:INPUT C$
  25. 76 IF C$=F$(K) THEN 90
  26. 78 PRINT" **** [206]OT CORRECT - [210]EPEAT - [197]RRORS:"G"[144]":GOSUB2050:GOSUB710
  27. 80 Q=Q+1:G=G+1
  28. 82 IF Q=5 THEN GOSUB 400:RESTORE:G=0:GOTO 56
  29. 84 GOTO 74
  30. 90 PRINT"[156]              [195][207][210][210][197][195][212]![144]":GOSUB2000:GOSUB710:P=P+1
  31. 92 IFP=17THEN RESTORE:GOTO 300
  32. 94 GOTO60
  33. 99 REM DATA FOR EXERCISES
  34. 100 DATA" [211]HE DROVE 5421 MILES LAST MONTH.","[211]HE DROVE 5421 MILES LAST MONTH."
  35. 105 DATA" [202]OHN READ 53 PAGES OF HISTORY.","[202]OHN READ 53 PAGES OF HISTORY."
  36. 110 DATA" [193]RE THERE 433 PAGES IN THAT BOOK?","[193]RE THERE 433 PAGES IN THAT BOOK?"
  37. 115 DATA" [198]RANK IS NOW 54 YEARS OF AGE.","[198]RANK IS NOW 54 YEARS OF AGE."
  38. 120 DATA" 1 APPLE/ 2 PEARS/ 3 ORANGES","1 APPLE/ 2 PEARS/ 3 ORANGES"
  39. 125 DATA" [202]ENNY HAS 5 LARGE RED PENCILS.","[202]ENNY HAS 5 LARGE RED PENCILS."
  40. 130 DATA" [197]LIZABETH HAS 2 BIG FAT CHICKENS.","[197]LIZABETH HAS 2 BIG FAT CHICKENS."
  41. 135 DATA" [199]REG LOST 3 BASEBALLS TODAY.","[199]REG LOST 3 BASEBALLS TODAY."
  42. 140 DATA" [202]AMIE HAS 34 MODEL AIRPLANES.","[202]AMIE HAS 34 MODEL AIRPLANES."
  43. 145 DATA" [204]AURA EARNED 23 DOLLARS TODAY.","[204]AURA EARNED 23 DOLLARS TODAY."
  44. 150 DATA" [200]AS [204]YNDWOOD [211]CHOOL 5 DOORS?","[200]AS [204]YNDWOOD [211]CHOOL 5 DOORS?"
  45. 155 DATA" [211]HE HAS 35 CENTS FOR CANDY.","[211]HE HAS 35 CENTS FOR CANDY."
  46. 160 DATA" [206]AME 5 CITIES IN [207]NTARIO.","[206]AME 5 CITIES IN [207]NTARIO."
  47. 165 DATA" [199]ASOLINE COSTS 55 CENTS A LITER.","[199]ASOLINE COSTS 55 CENTS A LITER."
  48. 170 DATA" [212]IM HAS 2 EARS AND 1 NOSE.","[212]IM HAS 2 EARS AND 1 NOSE."
  49. 175 DATA" [193] [195]64 COMPUTER COSTS $200.00.","[193][160][195]64 COMPUTER COSTS $200.00."
  50. 180 DATA" [205]R. [195] CAN TYPE AT 17 WPM!","[205]R. [195] CAN TYPE AT 17 WPM!"
  51. 298 :
  52. 299 REM FINAL INSTRUCTIONS
  53. 300 RESTORE:POKE53272,23:PRINT"[147]                [199][207][207][196][160][215][207][210][203]!":GOSUB900
  54. 305 POKE53280,0:POKE53281,0:POKE646,7
  55. 310 PRINT"[147]  [212]HIS IS THE END OF MODULE 28.":GOSUB710
  56. 315 PRINT"  [212]HE NUMBER OF SECONDS TO COMPLETE       THIS MODULE WERE:"
  57. 317 PRINT"[145]"VAL(TI$):GOSUB720
  58. 325 PRINT"  [210]ECORD THIS TIME AND THE DATE.
  59. 330 [141]740
  60. 335 [153]"DEF  (null)HIS MODULE SHOULD BE PERFORMED TWICE
  61. 340 PRINT"  BEFORE ADVANCING TO MODULE 29."
  62. 345 GOSUB730
  63. 350 PRINT"[158]  [215]HEN YOU HAVE RECORDED YOUR TIME
  64. 355 [153]"  AND THE DATE, PRESS (null)(null)ATNLENVAL PEEKATN(null).
  65. 360 GETR$:IFR$<>CHR$(32)THEN360
  66. 362 PRINT"[147]  [217]OU HAVE A CHOICE:
  67. 364 [153]"  (null)RESS  R WAIT TO REPEAT THIS MODULE.
  68. 366 PRINT"  [208]RESS  C [146] TO GO TO MODULE 29
  69. 368 [153]"  (null)RESS  M WAIT TO GO TO DISK MENU
  70. 370 GETR$:IFR$<>"R"ANDR$<>"C"ANDR$<>"M"THEN370
  71. 372 IFR$="R"THENRESTORE:GOTO10
  72. 374 IFR$="M"THEN386
  73. 376 RESTORE
  74. 378 PRINT"[147]  [204]OADING MODULE 29"
  75. 380 LOAD"TT29",8
  76. 382 RUN
  77. 384 END
  78. 386 RESTORE
  79. 388 PRINT"[147]  [204]OADING DISK MENU"
  80. 390 LOAD"MENU",8
  81. 392 RUN
  82. 394 END
  83. 399 :
  84. 400 REM START AGAIN
  85. 410 POKE53280,0:POKE53281,0:POKE646,10
  86. 420 PRINT"[147]   YOU ARE MAKING TOO MANY MISTAKES!":GOSUB2150:GOSUB720
  87. 430 PRINT"   YOU MUST GO BACK TO THE BEGINNING       OF THIS MODULE.
  88. 440 [141]740:[153]"LOAD"
  89. 450 [142]
  90. 598 :
  91. 599 [143] INSTRUCTIONS FOR MODULE
  92. 600 [153]"OPENLOAD  (null)ODULE 28 INTRODUCES THE  1, 2, 3, 4,"
  93. 603 [153]"  AND 5 WAIT KEYS.
  94. 605 PRINT"  [150] 1 [146][153] 2 [146] 3 [146][158] 4  5 [146][159]      [146]   [146][153]   [146][150]   [146]
  95. 610 [153]"   DEF (null) WAITPRINT (null) WAIT VAL WAITSYS (null)  (null) WAITOPEN (null)  (null) WAIT RIGHT$ WAITPRINT (null) WAITDEF (null) WAIT   "
  96. 615 [153]"    DEF ATN WAITPRINT (null) WAIT STR$ WAITSYS ASC WAIT CHR$WAITOPEN  LEFT$  MID$ WAIT (null) WAITPRINT (null) WAITDEF : WAIT"
  97. 620 [153]"     DEF (null) WAITPRINT (null) WAIT LEN WAITSYS (null)  PEEK WAITOPEN (null)  (null) WAIT , WAITPRINT . WAITDEF / WAIT
  98. 625 PRINT" [211][200][201][198][212][146]         [211][208][193][195][197]      [146]    [211][200][201][198][212][146]
  99. 630 [141]720
  100. 635 [153]"OPEN  (null)SE YOUR  ATN WAIT FINGER TO TYPE  1 WAIT.
  101. 640 PRINT"  [213]SE YOUR  [211] [146] FINGER TO TYPE  2 [146].
  102. 645 [153]"  (null)SE YOUR  STR$ WAIT FINGER TO TYPE  3 WAIT.
  103. 650 PRINT"  [213]SE YOUR  [198] [146] FINGER TO TYPE  4 AND 5 [146].
  104. 660 [141]720:[153]"CONT        (null)RESS  (null)(null)ATNLENVAL WAIT TO STARTOPEN"
  105. 665 [161]R$:[139]R$[179][177][199](32)[167]665
  106. 670 [142]
  107. 700 [143] TIME DELAYS
  108. 710 [129]T[178]1[164]1000:[130]:[142]
  109. 720 [129]T[178]1[164]2000:[130]:[142]
  110. 730 [129]T[178]1[164]3000:[130]:[142]
  111. 740 [129]T[178]1[164]4000:[130]:[142]
  112. 750 [129]T[178]1[164]5000:[130]:[142]
  113. 899 [143] END OF MODULE FLASH
  114. 900 [151]54276,17:[151]54277,30:[151]54278,200:[151]54296,15
  115. 905 [151]54272,220:[129] T[178]15 [164] 1 [169][171]1
  116. 910 [151]54273,T:[151]53281,T
  117. 915 [129] T1[178]1 [164] 5:[130] T1:[130] T:[129] T[178]1 [164] 30
  118. 920 [151]54273,T:[151]53280,T
  119. 925 [129]T1[178]1 [164] 5:[130] T1:[130] T
  120. 930 [151]54276,0:[151]54273,0:[151]54272,0
  121. 936 [142]
  122. 1998 :
  123. 1999 [143] <YES> SOUND
  124. 2000 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  125. 2005 [151]54296,15:[151]54277,42:[151]54278,250
  126. 2010 [151]54276,23:[151]54273,23:[151]54272,181
  127. 2015 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
  128. 2020 [151]54296,0:[142]
  129. 2048 :
  130. 2049 [143] <NO> SOUND
  131. 2050 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  132. 2055 [151]54296,15:[151]54277,18:[151]54278,242
  133. 2060 [151]54276,33:[151]54273,4:[151]54272,48
  134. 2063 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]800:[130]
  135. 2065 [129]E[178]S[164]S[170]28:[151]E,0:[130]
  136. 2070 [151]54276,0:[151]54273,0:[151]54272,0
  137. 2075 [151]54296,0:[142]
  138. 2098 :
  139. 2099 [143] <END OF EXERCISE> SOUND
  140. 2100 [151]54276,17:[151]54277,30:[151]54278,200:[151]54296,15
  141. 2105 [151]54272,220:[129]T[178]50[164]1[169][171]1
  142. 2110 [129]T1[178]1[164]5:[130]T1:[130]T:[129]T[178]1[164]30
  143. 2115 [151]54273,T:[151]53280,T
  144. 2120 [129]T1[178]1[164]5:[130]T1:[130]T
  145. 2125 [151]54276,0:[151]54273,0:[151]54272,0
  146. 2130 T[151]54296,0:[142]
  147. 2148 :
  148. 2149 [143] <WHOOPING> SOUND
  149. 2150 [129]L[178]54272[164]54295:[151]L,0:[130]:[151]54296,8
  150. 2155 [151]54277,8:[151]54278,255:[151]54276,23
  151. 2160 [129]Z[178]1[164]3:F1[178]2
  152. 2165 [129]Y[178]1[164]3:F2[178]8
  153. 2170 [151]54273,F1
  154. 2175 [129]X[178]1[164]5:[151]54287,F2
  155. 2180 F2[178]F2[172]1.4:[130]X:F1[178]F1[172]1.5:[130]Y
  156. 2185 [129]W[178]1[164]10:[151]54287,F2
  157. 2190 F2[178]F2[172]1.05:[130] W:[130] Z:[151]54278,15
  158. 2195 [151]54296,0:[142]
  159. 4999 :
  160. 5000 [143] * IN MEMORY OF RAD JANJIC *                 ** RIP 87:11:26 **
  161. 5005 :
  162. 5010 [143] DESIGNED BY W H CUMBERLAND 87:12:21/88:04:25/90:11:13:91:05:13
  163. 5020 [143] HELP FROM JIM BUTTERFIELD
  164. 5025 [143] ADVISE WHC [416/278 7687] OF   ANY IMPROVEMENTS OR SUGGESTIONS
  165.